Marriage vs Divorce count per state in Germany
library(plotly)
data <- read.csv("statistik.csv", sep=";")
data <- data[order(data$Eheschliessungen), ]
plot_ly(
data,
x = ~Eheschliessungen,
y = ~Bundesland,
name = "Marriage",
type = 'bar',
orientation = 'h'
) %>%
add_trace(
x = ~Scheidungen,
name = "Divorce",
type = 'bar',
orientation = 'h'
) %>%
layout(
title = "Marriages vs divorces per state in Germany",
xaxis = list(title = "Count"),
yaxis = list(
categoryorder = "array",
categoryarray = ~Bundesland,
title = "State"
),
margin = list(l = 100)
)